home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr13 / golisp.zip / DLL.LSP < prev    next >
Lisp/Scheme  |  1995-01-20  |  300b  |  11 lines
  1.  
  2. ;       Delete ALL entities on specified layer
  3. ;       Bob Zelna
  4.  
  5. (defun C:DLL (/ L S)
  6.    (setq L (cdr (assoc 8 (entget (car (entsel"\nPick layer to delete? "))))))
  7.    (setq S (ssget "X" (list (cons 8 L)))) ;Get all entities on layer
  8.    (command ".ERASE" S "")            ; Delete 'em!
  9. )
  10.  
  11.